home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / pastex / macros / script / script_s.sty (.txt) < prev    next >
Texinfo Document  |  1992-09-07  |  17KB  |  491 lines
  1. % script_s.sty -- by Frank Neukam  (06 Jun 1992)
  2. % based on Leslie Lamport's article style.
  3. \typeout{Document Style `script_s' V1.0 by Frank Neukam <06 Jun 1992>}
  4. \font\tensfb  =cmssbx10 scaled \magstep0
  5. \font\elvsfb  =cmssbx10 scaled \magstephalf
  6. \font\twlsfb  =cmssbx10 scaled \magstep1
  7. \font\frtnsfb =cmssbx10 scaled \magstep2
  8. \font\svtnsfb =cmssbx10 scaled \magstep3
  9. \font\twtysfb =cmssbx10 scaled \magstep4
  10. \font\twfvsfb =cmssbx10 scaled \magstep5
  11. \def\@ptsize{1}
  12. \@namedef{ds@10pt}{\def\@ptsize{0}}
  13. \@namedef{ds@11pt}{\def\@ptsize{1}}
  14. \@namedef{ds@12pt}{\def\@ptsize{2}}
  15. \def\ds@draft{\overfullrule 5pt}
  16. \def\ds@twoside{\@twosidetrue \@mparswitchtrue}
  17. \@options
  18. \input script1\@ptsize.sty\relax
  19. \normalsize
  20. \newif\if@hincl
  21. \def\headincludeon{\@hincltrue}
  22. \def\headincludeoff{\@hinclfalse}
  23. \newif\if@hsl
  24. \def\headseplineon{\@hsltrue \@hincltrue}
  25. \def\headseplineoff{\@hslfalse \@hinclfalse}
  26. \headseplineoff
  27. \newdimen\sc@pw
  28. \newdimen\sc@ph
  29. \newdimen\sc@bcor
  30. \newcount\sc@div
  31. \newdimen\sc@hblk
  32. \newdimen\sc@vblk
  33. \newdimen\sc@temp
  34. \sc@pw 210mm
  35. \sc@ph 297mm
  36. \def\typearea{\@ifnextchar [{\@typearea}{\@typearea[0mm]}}
  37. \def\@typearea[#1]#2{
  38.  \sc@bcor #1
  39.  \sc@div=#2
  40.  \sc@hblk \sc@pw
  41.  \advance \sc@hblk by -\sc@bcor
  42.  \divide\sc@hblk by \sc@div
  43.  \oddsidemargin -1in
  44.  \evensidemargin -1in
  45.  \if@twoside
  46.   \advance\oddsidemargin by \sc@hblk
  47.   \advance\oddsidemargin by \sc@bcor
  48.   \advance\evensidemargin by 2\sc@hblk
  49.  \else
  50.   \advance\oddsidemargin by 1.5\sc@hblk
  51.   \advance\oddsidemargin by \sc@bcor
  52.   \evensidemargin\oddsidemargin
  53.  \textwidth \sc@pw
  54.  \advance\textwidth by -\sc@bcor
  55.  \advance\textwidth by -3\sc@hblk
  56.  \headheight 15pt
  57.  \headsep 1.5\baselineskip
  58.  \sc@vblk \sc@ph
  59.  \divide\sc@vblk by \sc@div
  60.  \sc@temp \sc@ph
  61.  \advance\sc@temp by -3\sc@vblk
  62.  \if@hincl
  63.   \advance\sc@temp by -\headheight
  64.   \advance\sc@temp by -\headsep
  65.  \textheight \topskip
  66.  \@whiledim\textheight<\sc@temp
  67.   \do{\advance\textheight by \baselineskip}
  68.  \topmargin \sc@vblk
  69.  \advance\topmargin by -1in
  70.  \if@hincl \else
  71.   \advance\topmargin by -\headheight
  72.   \advance\topmargin by -\headsep
  73.  \footskip 3.5\baselineskip
  74.  \if@twoside
  75.   \marginparwidth 1.5\sc@hblk
  76.  \else
  77.   \marginparwidth \sc@hblk
  78.  \marginparsep 1cc
  79.  \marginparpush 0.45\baselineskip}
  80. \def\areaset{\@ifnextchar [{\@areaset}{\@areaset[0mm]}}
  81. \def\@areaset[#1]#2#3{
  82.  \sc@bcor #1
  83.  \textwidth #2
  84.  \textheight #3
  85.  \sc@hblk \sc@pw
  86.  \advance\sc@hblk by -\sc@bcor
  87.  \advance\sc@hblk by -\textwidth
  88.  \divide\sc@hblk by 3
  89.  \oddsidemargin -1in
  90.  \evensidemargin -1in
  91.  \if@twoside
  92.   \advance\oddsidemargin by \sc@hblk
  93.   \advance\oddsidemargin by \sc@bcor
  94.   \advance\evensidemargin by 2\sc@hblk
  95.  \else
  96.   \advance\oddsidemargin by 1.5\sc@hblk
  97.   \advance\oddsidemargin by \sc@bcor
  98.   \evensidemargin\oddsidemargin
  99.  \headheight 15pt
  100.  \headsep 1.5\baselineskip
  101.  \sc@vblk \sc@ph
  102.  \advance\sc@vblk by -\textheight
  103.  \divide\sc@vblk by 3
  104.  \if@hincl
  105.   \advance\textheight by -\headheight
  106.   \advance\textheight by -\headsep
  107.  \topmargin \sc@vblk
  108.  \advance\topmargin by -1in
  109.  \if@hincl \else
  110.   \advance\topmargin by -\headheight
  111.   \advance\topmargin by -\headsep
  112.  \footskip 3.5\baselineskip
  113.  \if@twoside
  114.   \marginparwidth 1.5\sc@hblk
  115.  \else
  116.   \marginparwidth \sc@hblk
  117.  \marginparsep 1cc
  118.  \marginparpush 0.45\baselineskip}
  119. \ifcase \@ptsize\relax \typearea{8} \or \typearea{10} \or \typearea{12} \fi
  120. \parskip 0pt plus 1pt
  121. \parindent 1em
  122. \partopsep 3pt plus 2pt minus 2pt
  123. \footnotesep 0.6\baselineskip
  124. \skip\footins 0.75\baselineskip plus 4pt minus 2pt
  125. \skip\@mpfootins = \skip\footins
  126. \columnsep 1cc
  127. \columnseprule 0pt
  128. \floatsep 1\baselineskip plus 2pt minus 2pt
  129. \textfloatsep 20pt plus 2pt minus 4pt
  130. \intextsep 1\baselineskip plus 2pt minus 2pt
  131. \@maxsep 20pt
  132. \dblfloatsep 1\baselineskip plus 2pt minus 2pt
  133. \dbltextfloatsep 20pt plus 2pt minus 4pt
  134. \@dblmaxsep 20pt
  135. \@fptop 0pt plus 1fil
  136. \@fpsep 0.7\baselineskip plus 2fil
  137. \@fpbot 0pt plus 1fil
  138. \@dblfptop 0pt plus 1fil
  139. \@dblfpsep 0.7\baselineskip plus 2fil
  140. \@dblfpbot 0pt plus 1fil
  141. \arraycolsep 5pt
  142. \tabcolsep 6pt
  143. \arrayrulewidth 0.4pt
  144. \doublerulesep 2pt
  145. \fboxsep 3pt
  146. \fboxrule 0.4pt
  147. \tabbingsep \labelsep
  148. \labelsep .5em
  149. \leftmargini 2.5em
  150. \leftmarginii 2.2em
  151. \leftmarginiii 1.87em
  152. \leftmarginiv 1.7em
  153. \leftmarginv 1em
  154. \leftmarginvi 1em
  155. \leftmargin\leftmargini
  156. \labelwidth\leftmargini
  157. \advance\labelwidth-\labelsep
  158. \def\@listI{\leftmargin\leftmargini
  159.  \topsep 0.8em plus 0.2em minus 0.4em
  160.  \parsep 0.4em plus 2pt minus 1pt
  161.  \itemsep \parsep}
  162. \let\@listi\@listI
  163. \@listi
  164. \def\@listii{\leftmargin\leftmarginii
  165.  \labelwidth\leftmarginii\advance\labelwidth-\labelsep
  166.  \topsep 0.4em plus 2pt minus 1pt
  167.  \parsep 0.2em plus 1pt minus 1pt
  168.  \itemsep \parsep}
  169. \def\@listiii{\leftmargin\leftmarginiii
  170.  \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
  171.  \topsep 0.2em plus 1pt minus 1pt
  172.  \parsep \z@
  173.  \partopsep 1pt plus 0pt minus 1pt
  174.  \itemsep \topsep}
  175. \def\@listiv{\leftmargin\leftmarginiv
  176.  \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
  177. \def\@listv{\leftmargin\leftmarginv
  178.  \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
  179. \def\@listvi{\leftmargin\leftmarginvi
  180.  \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}
  181. \@lowpenalty 51
  182. \@medpenalty 151
  183. \@highpenalty 301
  184. \@beginparpenalty -\@lowpenalty
  185. \@endparpenalty -\@lowpenalty
  186. \@itempenalty -\@lowpenalty
  187. \def\theenumi{\arabic{enumi}}
  188. \def\theenumii{\alph{enumii}}
  189. \def\theenumiii{\roman{enumiii}}
  190. \def\theenumiv{\Alph{enumiv}}
  191. \def\labelenumi{\theenumi.}
  192. \def\labelenumii{\theenumii)}
  193. \def\labelenumiii{\theenumiii.}
  194. \def\labelenumiv{\theenumiv.}
  195. \def\p@enumii{\theenumi}
  196. \def\p@enumiii{\theenumi\theenumii)}
  197. \def\p@enumiv{\p@enumiii\theenumiii}
  198. \def\labelitemi{$\bullet$}
  199. \def\labelitemii{\bf --}
  200. \def\labelitemiii{$\triangleright$}
  201. \def\labelitemiv{$\cdot$}
  202. \newcounter{part}
  203. \newcounter {section}
  204. \newcounter {subsection}[section]
  205. \newcounter {subsubsection}[subsection]
  206. \newcounter {paragraph}[subsubsection]
  207. \newcounter {subparagraph}[paragraph]
  208. \def\thepart {\Roman{part}}
  209. \def\thesection {\arabic{section}}
  210. \def\thesubsection {\thesection.\arabic{subsection}}
  211. \def\thesubsubsection {\thesubsection .\arabic{subsubsection}}
  212. \def\theparagraph {\thesubsubsection.\arabic{paragraph}}
  213. \def\thesubparagraph {\theparagraph.\arabic{subparagraph}}
  214. \setcounter{secnumdepth}{3}
  215. \setcounter{tocdepth}{3}
  216. \def\verse{\let\\=\@centercr
  217.  \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent
  218.  \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
  219. \let\endverse\endlist
  220. \def\quotation{\list{}{\listparindent 1em
  221.  \itemindent\listparindent
  222.  \rightmargin\leftmargin\parsep 0pt plus 1pt}\item[]}
  223. \let\endquotation=\endlist
  224. \def\quote{\list{}{\rightmargin\leftmargin}\item[]}
  225. \let\endquote=\endlist
  226. \def\descriptionlabel#1{\hspace\labelsep \sfb #1}
  227. \def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
  228.  \let\makelabel\descriptionlabel}}
  229. \let\enddescription\endlist
  230. \newdimen\descriptionmargin
  231. \descriptionmargin=3em
  232. \def\labelinglabel#1{#1\hfil\sc@septext}
  233. \def\labeling{\@ifnextchar [{\@labeling}{\@labeling[]}}
  234. \def\@labeling[#1]#2{\def\sc@septext{#1}
  235.  \list{}{\settowidth{\labelwidth}{#2#1}
  236.  \leftmargin\labelwidth \advance\leftmargin by \labelsep
  237.  \let\makelabel\labelinglabel}}
  238. \let\endlabeling\endlist
  239. \def\marginline#1{\marginpar%
  240.  {\if@twoside \ifodd\c@page \raggedright \else \raggedleft \fi
  241.   \else \raggedright \fi #1}}
  242. \def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
  243.  \else \newpage \fi \thispagestyle{empty}\c@page\z@}
  244. \def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}
  245. \def\@titlehead{}
  246. \long\def\titlehead#1{\def\@titlehead{#1}}
  247. \def\@subject{}
  248. \def\subject#1{\def\@subject{#1}}
  249. \def\maketitle{\par \begingroup
  250.  \def\thefootnote{\fnsymbol{footnote}}
  251.  \def\@makefnmark{\hbox to 0pt{$^{\@thefnmark}$\hss}}
  252.  \if@twocolumn
  253.   \twocolumn[\@maketitle]
  254.  \else
  255.   \newpage \global\@topnum\z@ \@maketitle
  256.  \thispagestyle{plain}\@thanks \endgroup
  257.  \setcounter{footnote}{0}
  258.  \let\maketitle\relax
  259.  \let\@maketitle\relax
  260.  \gdef\@titlehead{}\gdef\@subject{}%
  261.  \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}
  262. \def\@maketitle{\newpage
  263.  \ifx\@titlehead\@empty \else
  264.   \noindent\begin{minipage}[t]{\textwidth}
  265.   \@titlehead
  266.   \end{minipage}\par\null\vskip 1em
  267.  \null \vskip 2em
  268.  \ifx\@subject\@empty \else
  269.   {\centering \Large \@subject \par}
  270.   \vskip 1.5em
  271.  \begin{center}
  272.   {\huge \sfb \@title \par} \vskip 1.5em {\Large \lineskip .5em
  273.   \begin{tabular}[t]{c}\@author
  274.   \end{tabular}\par}
  275.   \vskip 1em {\Large \@date}
  276.  \end{center}
  277.  \par \vskip 5em}
  278. \newif\if@abstrt
  279. \def\abstracton{\@abstrttrue}
  280. \def\abstractoff{\@abstrtfalse}
  281. \def\abstractname{Abstract}
  282. \def\abstract{\if@abstrt \if@twocolumn \section*{\abstractname} \else
  283.  \begin{center} {\sfb \abstractname \vspace{-.5em}} \end{center}\fi
  284.  \quotation \fi}
  285. \def\endabstract{\if@twocolumn \else \endquotation \fi}
  286. \def\partname{Part}
  287. \def\part{\par \addvspace{4ex} \@afterindentfalse \secdef\@part\@spart}
  288. \def\@part[#1]#2{\ifnum \c@secnumdepth >\m@ne \refstepcounter{part}
  289.  \addcontentsline{toc}{part}{{\bf \thepart}\hspace{1em}#1}\else
  290.  \addcontentsline{toc}{part}{#1}\fi \markboth{}{}
  291.  {\parindent 0pt \raggedright \ifnum \c@secnumdepth >\m@ne \LARGE \sfb
  292.  \partname{} {\bf \thepart} \par\nobreak \fi \huge \sfb #2\par}\@endpart}
  293. \def\@spart#1{{\parindent 0pt \raggedright \huge \sfb #1\par}\@endpart}
  294. \def\@endpart{\nobreak \vskip 3ex \@afterheading}
  295. \def\section{\@afterindentfalse \secdef\@section\@ssection}
  296. \def\@section[#1]#2{\ifnum \c@secnumdepth >\z@
  297.   \refstepcounter{section}
  298.   \addcontentsline{toc}{section}{\protect \numberline{\thesection.}#1}
  299.  \else
  300.   \addcontentsline{toc}{section}{#1}\fi
  301.  \sectionmark{#1}
  302.  \@makesectionhead{#2} \@afterheading}
  303. \def\@ssection#1{\@makessectionhead{#1} \@afterheading}
  304. \def\@makesectionhead#1{\vskip 3.5ex plus 1ex minus .2ex {\Large \sfb
  305.  \@hangfrom{\ifnum \c@secnumdepth >\z@ \thesection.\hskip .7em\fi}%
  306.  {\raggedright \interlinepenalty \@M #1\par}} \nobreak \vskip 2.3ex
  307.  plus .2ex}
  308. \def\@makessectionhead#1{\vskip 3.5ex plus 1ex minus .2ex {\Large \sfb
  309.  \@hangfrom{}{\raggedright \interlinepenalty \@M #1\par}} \nobreak
  310.  \vskip 2.3ex plus .2ex}
  311. \def\addsec{\secdef\@addsec\@saddsec}
  312. \def\@addsec[#1]#2{\addcontentsline{toc}{section}{#1}
  313.  \if@twoside \markboth{#1}{}\else \markright{#1}\fi \section*{#2}}
  314. \def\@saddsec#1{\section*{#1}\markboth{}{}}
  315. \def\appendix{\par
  316.  \setcounter{section}{0}
  317.  \setcounter{subsection}{0}
  318.  \def\thesection{\Alph{section}}}
  319. \def\subsection{\@startsection{subsection}{2}{\z@}{-3.25ex plus -1ex minus
  320.  -.2ex}{1.5ex plus .2ex}{\large \sfb}}
  321. \def\subsubsection{\@startsection{subsubsection}{3}{\z@}{-3.25ex plus -1ex
  322.  minus -.2ex}{1.5ex plus .2ex}{\sfb}}
  323. \def\paragraph{\@startsection{paragraph}{4}{\z@}{3.25ex plus 1ex minus
  324.  .2ex}{-1em}{\sfb}}
  325. \def\subparagraph{\@startsection{subparagraph}{4}{\parindent}{3.25ex plus
  326.  1ex minus .2ex}{-1em}{\sfb}}
  327. \def\minisec#1{\@afterindentfalse \vskip 1.5ex {\parindent 0pt \raggedright
  328.  \sfb #1\par\nobreak}\@afterheading}
  329. \def\contentsname{Contents}
  330. \def\@pnumwidth{1.55em}
  331. \def\@tocrmarg {2.55em}
  332. \def\@dotsep{4.5}
  333. \def\tableofcontents{\section*{\contentsname
  334.  \@mkboth{\contentsname}{\contentsname}}
  335.  \@starttoc{toc}}
  336. \def\l@part#1#2{\addpenalty{\@secpenalty}
  337.  \addvspace{2.25em plus 1pt} \begingroup
  338.  \@tempdima 3em \parindent \z@ \rightskip \@pnumwidth \parfillskip
  339.  -\@pnumwidth
  340.  {\sfb \leavevmode #1\hfil \hbox to\@pnumwidth{\hss #2}}\par
  341.  \nobreak \endgroup}
  342. \def\l@section#1#2{\addpenalty{\@secpenalty}
  343.  \addvspace{1.0em plus 1pt} \@tempdima 1.5em \begingroup
  344.  \parindent \z@ \rightskip \@pnumwidth \parfillskip -\@pnumwidth
  345.  \sfb \leavevmode \advance\leftskip\@tempdima \hskip -\leftskip #1\nobreak
  346.  \hfil\nobreak\hbox to\@pnumwidth{\hss #2}\par
  347.  \endgroup}
  348. \def\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}}
  349. \def\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}}
  350. \def\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}}
  351. \def\l@subparagraph{\@dottedtocline{5}{10em}{5em}}
  352. \def\listfigurename{List of Figures}
  353. \def\listoffigures{\section*{\listfigurename\@mkboth
  354.  {\listfigurename}{\listfigurename}} \@starttoc{lof}}
  355. \def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}
  356. \def\listtablename{List of Tables}
  357. \def\listoftables{\section*{\listtablename\@mkboth
  358.  {\listtablename}{\listtablename}} \@starttoc{lot}}
  359. \let\l@table\l@figure
  360. \def\refname{References}
  361. \def\thebibliography#1{\section*{\refname \@mkboth{\refname}{\refname}}
  362.  \list{[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
  363.  \advance\leftmargin\labelsep
  364.  \usecounter{enumi}}
  365.  \def\newblock{\hskip 0.11em plus 0.33em minus 0.07em}
  366.  \sloppy\clubpenalty4000\widowpenalty4000
  367.  \sfcode`\.=1000\relax}
  368. \let\endthebibliography=\endlist
  369. \def\indexname{Index}
  370. \newif\if@restonecol
  371. \def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
  372.  \columnseprule \z@
  373.  \columnsep 35pt\twocolumn[\section*{\indexname}]
  374.  \@mkboth{\indexname}{\indexname}
  375.  \thispagestyle{plain}\parindent\z@
  376.  \parskip\z@ plus 0.3pt\relax\let\item\@idxitem}
  377. \def\@idxitem{\par\hangindent 40pt}
  378. \def\subitem{\par\hangindent 40pt \hspace*{20pt}}
  379. \def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
  380. \def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
  381. \def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}
  382. \def\footnoterule{\kern-3\p@
  383.  \hrule width 0.4\columnwidth
  384.  \kern 2.6\p@}
  385. \long\def\@makefntext#1{\noindent \sc@temp\columnwidth%
  386.  \advance\sc@temp by -1.5em \hbox to 1em{\hss$^{\@thefnmark}$}\hskip .5em%
  387.  \parbox[t]{\sc@temp}{\parindent 0pt\parskip 0pt\hskip -.5em #1}}
  388. \def\theequation{\arabic{equation}}
  389. \setcounter{topnumber}{2}
  390. \def\topfraction{.7}
  391. \setcounter{bottomnumber}{1}
  392. \def\bottomfraction{.3}
  393. \setcounter{totalnumber}{3}
  394. \def\textfraction{.2}
  395. \def\floatpagefraction{.5}
  396. \setcounter{dbltopnumber}{2}
  397. \def\dbltopfraction{.7}
  398. \def\dblfloatpagefraction{.5}
  399. \long\def\@makecaption#1#2{\vskip 10pt \setbox\@tempboxa\hbox{#1: #2}
  400.  \ifdim \wd\@tempboxa >\hsize \@hangfrom{#1: }{#2\par}
  401.  \else \hbox to\hsize{\hfil\box\@tempboxa\hfil}
  402.  \fi}
  403. \def\figurename{Figure}
  404. \newcounter{figure}
  405. \def\thefigure{\@arabic\c@figure}
  406. \def\fps@figure{tbp}
  407. \def\ftype@figure{1}
  408. \def\ext@figure{lof}
  409. \def\fnum@figure{\figurename{} \thefigure}
  410. \def\figure{\@float{figure}}
  411. \let\endfigure\end@float
  412. \@namedef{figure*}{\@dblfloat{figure}}
  413. \@namedef{endfigure*}{\end@dblfloat}
  414. \def\tablename{Table}
  415. \newcounter{table}
  416. \def\thetable{\@arabic\c@table}
  417. \def\fps@table{tbp}
  418. \def\ftype@table{2}
  419. \def\ext@table{lot}
  420. \def\fnum@table{\tablename{} \thetable}
  421. \def\table{\@float{table}}
  422. \let\endtable\end@float
  423. \@namedef{table*}{\@dblfloat{table}}
  424. \@namedef{endtable*}{\end@dblfloat}
  425. \mark{{}{}}
  426. \if@twoside
  427.  \def\ps@plain{\let\@mkboth\@gobbletwo
  428.   \def\@evenhead{}%
  429.   \def\@oddhead{}%
  430.   \def\@evenfoot{\rm\thepage\hfil}%
  431.   \def\@oddfoot{\rm\hfil\thepage}}
  432.  \def\ps@headings{\let\@mkboth\markboth
  433.   \def\@evenhead{\vbox{\hsize=\textwidth
  434.    \hbox to \textwidth{\it\leftmark\hfil}
  435.    \if@hsl \vskip 1.5pt \hrule \fi}}%
  436.   \def\@oddhead{\vbox{\hsize=\textwidth
  437.    \hbox to \textwidth{\it\hfil\rightmark}
  438.    \if@hsl \vskip 1.5pt \hrule \fi}}%
  439.   \def\@evenfoot{\rm\thepage\hfil}%
  440.   \def\@oddfoot{\rm\hfil\thepage}%
  441.   \def\sectionmark##1{\markboth {\ifnum \c@secnumdepth >\z@
  442.    \thesection. \ \fi ##1}{}}%
  443.   \def\subsectionmark##1{\markright {\ifnum \c@secnumdepth >\@ne
  444.    \thesubsection\ \ \fi ##1}}}
  445.  \def\ps@myheadings{\let\@mkboth\@gobbletwo
  446.   \def\@evenhead{\vbox{\hsize=\textwidth
  447.    \hbox to \textwidth{\it\leftmark\hfil}
  448.    \if@hsl \vskip 1.5pt \hrule \fi}}%
  449.   \def\@oddhead{\vbox{\hsize=\textwidth
  450.    \hbox to \textwidth{\it\hfil\rightmark}
  451.    \if@hsl \vskip 1.5pt \hrule \fi}}%
  452.   \def\@evenfoot{\rm\thepage\hfil}%
  453.   \def\@oddfoot{\rm\hfil\thepage}%
  454.   \def\sectionmark##1{}%
  455.   \def\subsectionmark##1{}}
  456. \else
  457.  \def\ps@plain{\let\@mkboth\@gobbletwo
  458.   \def\@evenhead{}%
  459.   \def\@oddhead{}%
  460.   \def\@evenfoot{}%
  461.   \def\@oddfoot{\rm\hfil\thepage\hfil}}
  462.  \def\ps@headings{\let\@mkboth\markboth
  463.   \def\@evenhead{}%
  464.   \def\@oddhead{\vbox{\hsize=\textwidth
  465.    \hbox to \textwidth{\it\hfil\rightmark\hfil}
  466.    \if@hsl \vskip 1.5pt \hrule \fi}}%
  467.   \def\@evenfoot{}%
  468.   \def\@oddfoot{\rm\hfil\thepage\hfil}%
  469.   \def\sectionmark##1{\markright {\ifnum \c@secnumdepth >\z@
  470.    \thesection. \ \fi ##1}}%
  471.   \def\subsectionmark##1{}}
  472.  \def\ps@myheadings{\let\@mkboth\@gobbletwo
  473.   \def\@evenhead{}%
  474.   \def\@oddhead{\vbox{\hsize=\textwidth
  475.    \hbox to \textwidth{\it\hfil\rightmark\hfil}
  476.    \if@hsl \vskip 1.5pt \hrule \fi}}%
  477.   \def\@evenfoot{}%
  478.   \def\@oddfoot{\rm\hfil\thepage\hfil}%
  479.   \def\sectionmark##1{}%
  480.   \def\subsectionmark##1{}}
  481. \def\today{\ifcase\month\or
  482.  January\or February\or March\or April\or May\or June\or
  483.  July\or August\or September\or October\or November\or December\fi
  484.  \space\number\day, \number\year}
  485. \@abstrttrue
  486. \ps@plain
  487. \pagenumbering{arabic}
  488. \onecolumn
  489. \if@twoside \else \raggedbottom \fi
  490. \frenchspacing
  491.